10 PRINT"[147]":POKE36879,104:POKE52,28:POKE56,28:CLR
20 FORI=7424TO7679:POKEI,PEEK(I+25600):NEXT
25 FORI=7179TO7408:READJ:POKEI,J:NEXTI
30 FORI=7432TO7551:READJ:POKEI,J:NEXTI
40 FORI=7632TO7679:READJ:POKEI,J:NEXTI
50 FORI=7416TO7423:READJ:POKEI,J:NEXTI
1000 DATA8,72,138,72,152,72,162,1,160,0,189,0,30,201,39,208,46,138
1010 DATA72,56,233,23,170,189,0,30,201,32,240,13,169,58,157,0,30
1020 DATA169,2,157,0,150,76,64,28,169,39,157,0,30,169,10,157,0,150,104
1030 DATA170,169,32,157,0,30,76,150,28,201,35,208,22,32,132,3,165,98
1040 DATA201,157,176,63,169,39,157,0,30,169,10,157,0,150,76,150,28,201,40
1050 DATA208,8,169,32,157,0,30,76,150,28,201,37,208,25,189,0,150,41,15,201,10
1060 DATA208,8,169,9,157,0,150,76,150,28,169,10,157,0,150,76,150,28,201,58,208,5
1070 DATA169,32,157,0,30,189,0,30,72,189,0,150,41,15,202,157,0,150
1080 DATA104,157,0,30,232,232,200,192,21,208,61,232,224,242,144,59
1090 DATA162,0,189,0,30,201,36,208,35,32,132,3,165,98,201,160
1100 DATA176,26,138,24,105,22,168,185,0,30,201,41,240,14,169,40
1110 DATA153,0,30,169,2,153,0,160,152,76,198,28,232,224,220,144,209
1120 DATA104,168,104,170,104,40,96,76,21,28,76,19,28
2000 DATA255,255,255,255,255,255,255,255,60,66,153,153,66,60,90,153
2010 DATA8,8,28,28,28,28,62,62,255,165,90,36,24,24,24,24
2020 DATA255,235,235,235,235,235,235,255,0,64,64,96,124,254,127,0
2030 DATA12,12,12,12,63,8,8,8,24,24,24,24,24,24,24,24
2040 DATA24,24,24,24,36,90,165,255,255,254,252,252,240,240,192,128
2050 DATA255,127,31,63,63,15,7,1,1,3,15,31,31,63,127,255
2060 DATA128,224,224,248,248,252,248,255,66,66,66,36,36,24,24,0
2070 DATA0,0,0,48,191,48,0,0,73,107,186,28,255,28,171,105
2080 DATA60,66,64,60,2,66,60,0,28,34,64,64,64,34,28,0
2090 DATA24,36,66,66,66,36,24,0,124,66,66,124,72,68,66,00
2100 DATA126,64,64,120,64,64,126,0
3000 DATA64,64,64,64,64,64,126,0
5000 PRINT"[144]   NOW LOADING MAIN       PROGRAM"
5010 PRINT" LOAD";CHR$(34);"CAVES MODULE";CHR$(34);",8[145][145]";
5020 POKE631,13:POKE632,82:POKE633,213:POKE634,13:POKE198,4